﻿Imports DevExpress.XtraGrid.Views.Grid
Public Class frmReceiveGrid
    Public Primary_Key As Integer = -1
    Dim Strsql As String
    Dim _mysql As New ClsSQLhelper
#Region "Functioin"
    Sub Load_Data()
        Try
            Strsql = "Select * from receive_detail "
            Dim DT_Doc_Draw_Header As DataTable
            DT_Doc_Draw_Header = _mysql.GetMYSQLDataTable(Strsql, "receive_detail")
            With GridControl1
                .DataSource = DT_Doc_Draw_Header
                ' Col_doc_id.FieldName = "received_id"

            End With
        Catch ex As Exception
            With frmDebug
                .lblFormName.Text = Me.Name
                .lblFunctionName.Text = "Load_Data"
                .MemoErr_Description.Text = ex.Message
                .MemoSQL.Text = Strsql
                .ShowDialog()
            End With
        End Try
    End Sub
#End Region
    Private Sub frmReceiveGrid_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Load_Data()
    End Sub
End Class